home *** CD-ROM | disk | FTP | other *** search
/ Windows 3-Pak 2 - Disc 2 / Infomagic - Windows 3-Pak Volume 2 (Disc 2 of 3).iso / Chat---IRC / TURBOIRC.ZIP / data1.cab / TurboIRC_Scripts / EONWHOIS.txt < prev    next >
Text File  |  1999-05-05  |  4KB  |  180 lines
  1. #noyield
  2. // Whois TurboIRC Script
  3. // Copyright ⌐ Chourdakis Michael , 1998
  4.  
  5. // This example
  6. // Sends a /WHOIS reply formatted to either a server window , or to the relative query window .
  7.  
  8. // Load it : /_event ONWHOIS 7 0 0 +:$server 311 *|||+:$server 312 *|||+:$server 313 *|||+:$server 301 *|||+:$server 317 *|||+:$server 319 *|||+:$server 318 *|||?.\demos\uwhois.txt
  9.  
  10. // If you want this script to be fired whenever
  11. // a user /msgs you , do that
  12. // /_spevent IncomingPrivates /raw whois $nick
  13.  
  14. if (GetSOPTIONS($servernumber,"IsMaskWaiting")==1)
  15.  #unlock
  16.  return
  17. endif
  18.  
  19.  
  20. int IsQuery = 0
  21. if (FindWindowFromTitle("$3")==-1)
  22.  IsQuery = 0
  23. else
  24.  IsQuery = 1
  25. endif
  26.  
  27.  
  28. if ("$1"=="311")
  29.  goto R_311
  30. endif
  31.  
  32. if ("$1"=="318")
  33.  goto R_318
  34. endif
  35.  
  36. if ("$1"=="312")
  37.  goto R_312
  38. endif
  39.  
  40. if ("$1"=="313")
  41.  goto R_313
  42. endif
  43.  
  44. if ("$1"=="320")
  45.  goto R_320
  46. endif
  47.  
  48. if ("$1"=="301")
  49.  goto R_301
  50. endif
  51.  
  52. if ("$1"=="306")
  53.  goto R_306
  54. endif
  55.  
  56. if ("$1"=="317")
  57.  goto R_317
  58. endif
  59.  
  60. if ("$1"=="319")
  61.  goto R_319
  62. endif
  63.  
  64. // other reply ? not possible , just for sure
  65. return 
  66. // Process Now
  67.  
  68. :R_311
  69.  
  70. // This has :$server 311 $mynick nick username domain name <server(s)>
  71.  
  72. if (IsQuery==0)
  73.  // send to server window
  74.  /addtext $server 1,4                    1,12                    1,8                    1,11                   *
  75.  /addtext $server 12***WHOIS Information***
  76.  /addtext $server 4***Mask : 12$3!$4@$5 4Name $7*
  77. else
  78.  // send to query window
  79.  /addtext $3 1,4                    1,12                    1,8                    1,11                   *
  80.  /addtext $3 12***WHOIS Information***
  81.  /addtext $3 4***Mask : 12$3!$4@$5 4Name $7*
  82. endif
  83. return
  84.  
  85. :R_312
  86.  
  87. // This has :$server 312 $mynick nick server
  88.  
  89. if (IsQuery==0)
  90.  // send to server window
  91.  /addtext $server 12***Server 4$4*
  92. else
  93.  // send to query window
  94.  /addtext $3 12***Server 4$4*
  95. endif
  96. return
  97.  
  98. :R_301
  99.  
  100. // This has :$server 301 $mynick nick :away
  101.  
  102. if (IsQuery==0)
  103.  // send to server window
  104.  /addtext $server 12***Away 4$4*
  105. else
  106.  // send to query window
  107.  /addtext $3 12***Away 4$4*
  108. endif
  109. return
  110.  
  111. :R_313
  112.  
  113. // This has :$server 313 $mynick nick :op reason
  114.  
  115. if (IsQuery==0)
  116.  // send to server window
  117.  /addtext $server 12***IRCOp 4$4*
  118. else
  119.  // send to query window
  120.  /addtext $3 12***IRCOp 4$4*
  121. endif
  122. return
  123.  
  124. :R_320
  125.  
  126. // This has :$server 320 $mynick nick :IPNumInfo
  127.  
  128. if (IsQuery==0)
  129.  // send to server window
  130.  /addtext $server 12***Location 4$4*
  131. else
  132.  // send to query window
  133.  /addtext $3 12***Location 4$4*
  134. endif
  135. return
  136.  
  137. :R_319
  138.  
  139. // This has :$server 319 $mynick nick :channels
  140.  
  141. if (IsQuery==0)
  142.  // send to server window
  143.  /addtext $server 12***Channels In 4$4*
  144. else
  145.  // send to query window
  146.  /addtext $3 12***Channels In 4$4*
  147. endif
  148. return
  149.  
  150. :R_317
  151.  
  152. // This has :$server 317 $mynick nick secondsidle signontime
  153.  
  154. int SFU = atoi("$5")
  155. string UT = UNIXTime(SFU)
  156. if (IsQuery==0)
  157.  // send to server window
  158.  /addtext $server 12***Seconds Idle : 4 $4 , 3Signon time (GMT) : 4,8 %UT% 
  159. else
  160.  // send to query window
  161.  /addtext $3 12***Seconds Idle : 4 $4 , 3Signon time (GMT) : 4,8 %UT% 
  162. endif
  163. return
  164.  
  165. :R_318
  166.  
  167. // This has :$server 318 $mynick nick end
  168.  
  169. if (IsQuery==0)
  170.  // send to server window
  171.  /addtext $server 4***End of /WHOIS***
  172.  /addtext $server 1,4                    1,12                    1,8                    1,11                   *
  173. else
  174.  // send to query window
  175.  /addtext $3 4***End of /WHOIS***
  176.  /addtext $3 1,4                    1,12                    1,8                    1,11                   *
  177. endif
  178. return
  179.  
  180.